Voorbeeld van de functie DDB

Dit voorbeeld laat zien hoe de functie DDB wordt gebruikt om de afschrijving te geven van een creditpost gedurende een opgegeven periode op basis van de beginkosten (InitCost), de waarde van de creditpost aan het einde van de nuttige levensduur (SalvageVal), de lengte van de levensduur van de creditpost in jaren (LifeTime) en de periode uitgedrukt in jaren waarover de afschrijving van de creditpost wordt berekend (Depr).

Dim Fmt, InitCost, SalvageVal, MonthLife, LifeTime, DepYear, Depr
Const YRMOS = 12    ' Aantal maanden in een jaar.
Fmt = "###.##0,00"
InitCost = InputBox("Wat zijn de beginkosten van de creditpost?")
SalvageVal = InputBox("Voer de waarde in van de creditpost aan het einde van zijn levensduur.")
MonthLife = InputBox("Wat is de nuttige levensduur van de creditpost in maanden?")
Do While MonthLife < YRMOS    ' Zorg ervoor dat de periode >= 1 jaar is.
    MsgBox "Levensduur creditpost moet een jaar of langer zijn."
    MonthLife = InputBox("Wat is de nuttige levensduur van de creditpost in maanden?")
Loop
LifeTime = MonthLife / YRMOS    ' Converteer maanden in jaren.
If LifeTime <> Int(MonthLife / YRMOS) Then
    LifeTime = Int(LifeTime + 1)    ' Rond af naar meest nabije jaar.
End If
DepYear = CInt(InputBox("Voer jaar in voor berekening afschrijving."))
Do While DepYear < 1 Or DepYear > LifeTime
    MsgBox "U moet ten minste 1 invoeren maar niet meer dan " & LifeTime
    DepYear = InputBox("Voer jaar in voor berekening afschrijving.")
Loop
Depr = DDB(InitCost, SalvageVal, LifeTime, DepYear)
MsgBox "De afschrijving voor " & DepYear & " is " & _
Format(Depr, Fmt) & "."